home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Games / talesdemo / rexx / Start_TCP_IP_Genesis.rexx < prev    next >
OS/2 REXX Batch file  |  2002-07-22  |  3KB  |  65 lines
  1. /******************************************************************************************************/
  2. /* Online-Script mit Arexx                                                                            */
  3. /*     © by Martin Wolf / Eternity Hard & Software                                                  */
  4. /*      First Bit set: 03.05.1998                                                                     */
  5. /*      Last Bit set : 22.07.2002                                                                     */
  6. /*                                                                                                */
  7. /*                                                                                                    */
  8. /*      Version 1.01 : Wenn Port schon offen ist wird Script übersprungen                             */
  9. /*      Version 1.02 : Env-Var Deja wird angelegt                                      */
  10. /*      Version 1.03 : Library rexxsupport.library wird jetzt geladen                      */
  11. /*      Version 1.04 : Das Vorhanden sein des Stacks wird jetzt auch überprüft                  */
  12. /*      Version 1.05 : OS 3.9 Genesis wird nun auch abgefragt                          */
  13. /*      Version 1.06 : OS 3.9 Genesis wird nun auch gestartet                          */
  14. /*                                                                                                    */
  15. /******************************************************************************************************/
  16.  
  17. OPTIONS RESULTS
  18.  
  19.  
  20. ADDRESS COMMAND
  21.     IF ~SHOW('L','rexxsupport.library') THEN    /* Library laden, damit            */
  22.       CALL ADDLIB('rexxsupport.library',0,-30,0)    /* Assign-Suche ohne Meldung        */
  23.  
  24.     IF ~SHOWLIST('A','AMITCP') THEN            /* Wenn kein TCPIP-Assign da ist    */
  25.       DO
  26.         'Setenv ToT:Data/TCPIPDeja -1'        /* direkt raus hier            */
  27.         EXIT
  28.       END
  29.  
  30.     IF ~EXISTS('AmiTCP:Genesis') THEN        /* Auf rexxsys verzichten        */
  31.       DO                        /* Üble Sache ! TCP-IP nicht korrekt installiert*/
  32.         IF ~EXISTS('AmiTCP:GenesisRA') THEN        /* OS3.9 Genesis abfragen...        */
  33.           DO
  34.           'Setenv ToT:Data/TCPIPDeja -1'        /* es wurde wieder rumgepfuscht     */ 
  35.           EXIT
  36.           END
  37.       END
  38.  
  39.     IF SHOW('P','GENESIS') THEN            /* TCPIP-Port da ?            */
  40.       'Setenv ToT:Data/TCPIPDeja 1'            /* Env-Var setzen            */
  41.     ELSE
  42.       'Setenv ToT:Data/TCPIPDeja 0'            /* keiner gestartet            */
  43.     IF ~SHOW('P','GENESIS') THEN
  44.       DO
  45.         IF EXISTS('AmiTCP:Genesis') THEN        /* Auf rexxsys verzichten        */
  46.         DO
  47.           'run >NIL: AmiTCP:Genesis >NIL:'        /* Existiert TCPIP-Stack überhaupt dort ?*/
  48.         END
  49.         IF EXISTS('AmiTCP:GenesisRA') THEN        /* Auf rexxsys verzichten        */
  50.         DO
  51.           'run >NIL: AmiTCP:GenesisRA >NIL:'    /* Existiert TCPIP-Stack überhaupt dort ?*/
  52.         END
  53.         DO UNTIL SHOW('P','GENESIS')        /* Auf TCPIP-Stack warten warten    */
  54.           SIGNAL OFF ERROR                /* Fehler-Meldung solange auschalten    */
  55.           'WaitForPort GENESIS'            /* Isser nu da ?            */
  56.           SIGNAL ON ERROR                /* Fehler-Meldungen wieder ein        */
  57.         END                        
  58.       END
  59.     ENDIF
  60.         tcpipport = GENESIS                /* ist auf jeden Fall der aktive Port    */
  61.  
  62. ADDRESS (tcpipport)
  63.     HIDE
  64.     EXIT
  65.